home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 224 / 224.d81 / b.saddam darts (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2003-01-01  |  6.7 KB  |  158 lines
  1. 10 rem bulleyes-t.brantner
  2. 11 rem ** adapted for freedom iroq  **
  3. 12 rem ** situation. hope some of   **
  4. 13 rem ** you have a 64 over there! **
  5. 14 rem ** be back safely soon!      **
  6. 15 rem -------------------------------
  7. 17 print"[147]":poke53280,0:poke53281,0:poke53272,22:gosub20000
  8. 20 poke53280,0:poke53281,0:printchr$(8)chr$(142)"[147]"
  9. 30 fora=832to1022:readz:pokea,z:next
  10. 40 fora=49152to49259:readz:pokea,z:next
  11. 50 dimse%(13,18),qt(3,14),sc(1)
  12. 60 fora=0to13:forz=0to18:readse%(a,z):next:next
  13. 70 fora=0to3:forz=0to3:readqt(a,z):qt(a,4+z)=qt(a,z)*2:qt(a,8+z)=qt(a,z)*3
  14. 80 next:qt(a,12)=25:qt(a,13)=50:next
  15. 90 tc=646:sp=2040:v=53248:s1=54272:j2=56320:a=rnd(-ti)
  16. 100 pokev+16,0:pokev+28,7:pokev+37,11:pokev+38,12
  17. 110 sc(0)=301:sc(1)=301
  18. 120 pl=0:pokev+21,0:poke53265,11:gosub420:poke53265,27
  19. 130 dn=2:cs=sc(pl):pokev+1,0:pokev+3,0:pokev+5,0:pokev+21,7
  20. 140 cy=4:ifplthencx=3:gosub400:print"   ":printtab(cx)"   "
  21. 150 poketc,6+pl*7:cx=3+pl*31:gosub400:print"[161][194][187][157][157][157][188][194][162]"
  22. 160 gosub270:cy=13-dn:cx=3+pl*31:a=pv:gosub390:cs=cs-pv
  23. 170 cy=15:ifcs<0thencx=2+pl*31:gosub400:print"broke":goto210
  24. 180 cx=3+pl*31:a=cs:gosub390:ifcs=0then230
  25. 190 dn=dn-1:ifdn>-1then160
  26. 200 sc(pl)=cs
  27. 210 fora=1to1500:next:pl=pl+1:ifpl<2then130
  28. 220 goto120
  29. 230 cy=23:cx=11:gosub400:poketc,(peek(tc)and7)+1
  30. 240 print"winner: player "mid$("onetwo",1+pl*3,3):j9=peek(214)
  31. 250 printtab(8)"press fire to play again";:ifpeek(j2)and16then230
  32. 255 gosub21000
  33. 260 goto110
  34. 270 pokesp+dn,13:pokev+39+dn,6+pl*7
  35. 280 poke2,173:poke3,141:poke4,rnd(1)*2:poke5,rnd(1)*2:poke6,dn
  36. 290 sys49152:xp=peek(2):yp=peek(3)
  37. 300 gosub410:pokes1+5,153:pokes1+4,16:pokes1+4,17
  38. 310 fora=0to23:pokesp+dn,13+a/11:pokev+1+dn*2,yp-a:pokes1+1,140-a
  39. 320 forz=1to10:next:next
  40. 330 gosub410:pokes1+5,3:pokes1+1,10:pokes1+4,16:pokes1+4,17:yp=yp-23
  41. 340 pv=0:x%=(xp-98)/4:y%=(yp-85)/4
  42. 350 ifx%<0orx%>37ory%<0ory%>27thenreturn
  43. 360 a=0:ifx%>18thena=1:x%=37-x%
  44. 370 ify%>13thena=a+2:y%=27-y%
  45. 380 z=se%(y%,x%):pv=qt(a,z):return
  46. 390 gosub400:print""right$(" "+str$(a),3):return
  47. 400 poke214,cy-1:print:printtab(cx);:return
  48. 410 fora=s1tos1+23:pokea,0:next:pokes1+24,15:return
  49. 420 gosub880:goto640:print"[147]       [188] [146][208][165] [146] [161] [146]   [146] [203] [146][183]   [146][183] [167][146][170][161] [146][183]"
  50. 430 print"        [129] [146][183][161] [146] [161] [146]   [146]  [183][208][161][190] [146][183] [183][208][161] [146][183]"
  51. 440 print"       [158][188][162][162][146][190][162][162][146][190][162][162][146][190][162][162][146][190][162][162][146][190] [162][162][146][190][162][162][146][190][162][162][146][190]"
  52. 450 print"       [155][182]          [175][175][175][175]          [146][181]"
  53. 460 print"       [182]      [172][162][146]   12   [155][162][187]      [146][181]"
  54. 470 print"       [182]    [172][146][190]1  [158][162][162][162][162][162][162]  8[155][188][187]    [146][181]"
  55. 480 print"       [182]   [146][190]   [153][162][162][146][187]    [172][153][162][146][162]   [155][188]   [146][181]"
  56. 490 print" [182][184][184][184][184][184][194]  [146][190]  [158][162][153][162][146][162] [188][146]    [190] [146][162][153][162][158][146][162]  [155][188]  [194][146][184][184][184][184][184][181]"
  57. 500 print" [182] one [155][194] [146][190]5 [158][190][146][190][162]  [162][158][146][172][162][162][187][162]  [162][158][146][188][188][146] 4[155][161] [194][146] two [155][181]"
  58. 510 print" [182][198][198][198][198][198][194][172][146]  [158][161][146][165]  [188][172][190][146][161]  [161][188][146][187][190]  [158][167][161]  [155] [194][146][198][198][198][198][198][181]"
  59. 520 print" [182]     [194][146][190]  [158][170][146]  [172][172][146] [187] [146]   [172][146] [158][187][146][187]  [180][146]  [155][161][194][146]     [181]"
  60. 530 print" [182]     [194][146]  [153][161][165] [188][146][172][162]  [188][190][188][190]  [162][187][190] [167][153][146][161]  [155][194][146]     [181]"
  61. 540 print " [182]     [194][146]11[153][161][165]  [161]   [146][161][161][146][161][161]   [146][161]  [167][153][146][161]9 [155][194][146]     [181]"
  62. 550 print" [182]     [194][146]  [153][161][165] [172][146][188][162][146]  [172][187][172][187]  [162][146][190][187] [167][153][146][161]  [155][194][146]     [181]"
  63. 560 print" [182][197][197][197][197][197][194][146][187]  [158][170][146]  [188][188][146] [190] [146]   [188][146] [158][190][146][190]  [180][146]  [155][172][194][146][197][197][197][197][197][181]"
  64. 570 print" [182]     [194][188][146]  [158][161][146][165]  [172][188][187][146][161]  [161][172][146][190][187]  [158][167][161]  [155][190][194][146]     [181]"
  65. 580 print" [182][185][185][185][185][185][194] [146][187]2 [158][187][146][187][162]  [146][162][158][188][162][162][146][190][162]  [146][162][158][172][172][146] 7[155][172] [194][146][185][185][185][185][185][181]"
  66. 590 print"       [182]  [146][187]  [158][162][153][146][162][162] [172][146]    [187] [162][153][146][162][158][162][146]  [155][172]  [146][181]"
  67. 600 print"       [182]   [146][187]   [153][162][146][162][190]    [188][153][162][162][146]   [155][172]   [146][181]"
  68. 610 print"       [182]    [188][146][187]6  [158][162][162][162][162][162][162][146]  3[155][172][190]    [146][181]"
  69. 620 print"       [182]      [188][146][162]   10   [155][162][190]      [146][181]"
  70. 630 print"       [182]          [183][183][183][183]          [146][181]"
  71. 640 cy=10:cx=3:a=sc(0):gosub390:cx=34:a=sc(1):goto390
  72. 650 data0,48,0,0,48,0,0,48,0,0,48,0,0,252,0,0,236,0,0,116,0,0,236,0,0,116
  73. 660 data0,0,236,0,0,116,0,0,252,0,3,187,0,14,186,192,58,186,176,58,186
  74. 670 data176,58,186,176,14,254,192,3,51,0,0,48,0,0,48,0,0,0,0,0,0,0,0,0,0
  75. 680 data 0,0,0,0,0,48,0,0,48,0,0,252,0,0,236,0,0,116,0,0,116,0,3,187,0,14
  76. 690 data186,192,58,186,176,10,254,128,0,48,0,0,48,0,0,48,0,0,48,0,0,0,0,0
  77. 700 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,48,0,0,48,0,0,48,0,0
  78. 710 data184,0,63,255,240,0,184,0,0,48,0,0,48,0,0,48,0,0,48,0,0,0,0,0,0,0
  79. 720 data0,0,0,0,0,0,0,0,0,0,0,0,165,6,10,168,165,2,153,0,208,165,3,153,1
  80. 730 data208,173,0,220,170,41,16,208,1,96,138,74,74,41,3,168,136,192,2,144
  81. 740 data2,164,4,24,165,2,121,106,192,201,91,176,7,152,73,1,168,76,55,192
  82. 750 data133,2,132,4,138,41,3,168,136,192,2,144,2,164,5,24,165,3,121,106
  83. 760 data192,201,97,144,4,201,230,144,7,152,73,1,168,76,91,192,133,3,132,5
  84. 770 data162,8,160,0,200,208,253,202,208,250,76,0,192,1,255,14,14,14,14,14
  85. 780 data14,14,14,14,14,14,14,14,4,4,4,4,4,4,14,14,14,14,14,14,14,14,14,14
  86. 790 data14,5,5,0,0,0,0,0,0,14,14,14,14,14,14,14,14,14,5,5,1,1,1,0,0,0,0,0
  87. 800 data14,14,14,14,14,14,14,5,5,1,1,1,1,1,0,0,0,0,0,14,14,14,14,14,6,6,1
  88. 810 data1,1,1,1,1,1,1,0,0,0,0,14,14,14,14,6,6,2,1,1,1,1,1,1,1,1,0,0,0,0
  89. 820 data14,14,14,6,6,2,2,2,2,1,1,1,1,9,9,9,8,8,8,14,14,6,2,2,2,2,2,2,2,1
  90. 830 data9,9,9,1,1,0,0,0,14,14,6,2,2,2,2,2,2,2,2,9,1,1,1,1,0,0,0,14,6,2,2
  91. 840 data2,2,2,2,2,10,10,2,2,1,1,1,1,0,0,14,6,2,2,2,2,2,2,10,10,2,2,2,2,1
  92. 850 data1,1,0,0,7,3,3,3,3,3,2,2,10,2,2,2,2,2,2,2,1,1,0,7,3,3,3,3,3,3,11,3
  93. 860 data3,3,2,2,2,2,2,2,12,12,7,3,3,3,3,3,3,11,3,3,3,3,3,3,3,3,12,12,13
  94. 870 data12,1,5,11,12,8,4,9,10,6,2,11,10,3,7,9
  95. 880 rem ** kill hussein screen **
  96. 5885 print"[147]       [158][161][129][176][195][195][195][150][195] kill hussei";
  97. 5890 print"n C[129]CCC[174][158][146][161]              [188][162][162]";
  98. 5895 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]  ";
  99. 5900 print"            [155][182]          [175][175]";
  100. 5905 print"[175][175]          [146][181]            ";
  101. 5910 print"  [182]      [172][162][146]   12   [155][162][187]    ";
  102. 5915 print"  [146][181]              [182]    [172][146][190]1";
  103. 5920 print"   [155][175]F[175]F[175][175] 8[155][188][187]    [146][181]       ";
  104. 5925 print"       [182]   [146][190]   [185]FD      [191]";
  105. 5930 print"   [188]   [146][181]        [182][184][184][184][184][184]B  ";
  106. 5935 print"[146][190]   [151][191][146]          [155][191]   [188]  B[146][184][184]";
  107. 5940 print"[184][184][184][181]  [182] one [155]B [146][190]5  [151][191][146]  [175][185][162][162]";
  108. 5945 print"[152][162][185][185][175]  [165]  4[155][161] B[146] two [155][181]  [182]FFF";
  109. 5950 print"FFB[172][146]    [151][165][172][172][146][183][183] [187][152][172][146] [183][183][187][146][167]    ";
  110. 5955 print" [155] B[146]FFFFF[181]  [182]     B[146][190]    [151][191] ";
  111. 5960 print" [172][172][187][151]H[152] [172][187][152][187] [146][186][191]    [155][161]B[146]     [181] ";
  112. 5965 print" [182]     B[146]     [151][161]  [183]EDG[155] [152]DE  ";
  113. 5970 print" [161][146]     [155]B[146]     [181]  [182]     B[146]11";
  114. 5975 print"   [151][191]   [175] L[155]R[152] [175]   [191][146]   9 [155]B[146]  ";
  115. 5980 print"   [181]  [182]     B[146]     [151][182]  N [146][184][183]";
  116. 5985 print"[152][183][184] M  [146][181]     [155]B[146]     [181]  [182]EEE";
  117. 5990 print"EEB[146][187]    [151][167] [167][172][146]      [152][187][165] [146][165]   ";
  118. 5995 print" [155][172]B[146]EEEEE[181]  [182]     B[188][146]     [151][187]";
  119. 6000 print" [146]  FF[152]FF [146]  [172][146]     [155][190]B[146]     [181] ";
  120. 6005 print" [182][185][185][185][185][185]B [146][187]2    [151][187]     [152]   [172]";
  121. 6010 print"[146]    7[155][172] B[146][185][185][185][185][185][181]        [182]  ";
  122. 6015 print"[146][187]      [151][163]EDC[152]DE[163][146]     [155][172]  [146][181]  ";
  123. 6020 print"            [182]   [146][187]   [184] [188][151][187] ";
  124. 6025 print" [152] [172][155][190] [183][184][146] [172]   [146][181]            ";
  125. 6030 print"  [182]    [188][146][187]6          3[155][172][190]  ";
  126. 6035 print"  [146][181]              [182]      [188]";
  127. 6040 print"[146][162]   10   [155][162][190]      [146][181]       ";
  128. 6045 print"       [182]          [183][183][183][183]   ";
  129. 6050 print"       [146][181]"
  130. 6055 return
  131. 10000 d=peek(186):n$="b.ks":open1,d,15,"i0":close1
  132. 10001 open1,d,15,"s0:"+n$:close1:saven$,d:end
  133. 20000 a$(1)="[196]edicated to all the"
  134. 20001 a$(2)="[198]ighting [205]en and [215]omen"
  135. 20002 a$(3)="in the [198]reedom [201]rag [215]ar [195]onflict"
  136. 20003 a$(5)="[203]ill the [194][193][211][212][193][210][196]!"
  137. 20004 a(1)=11:a(2)=12:a(3)=15:a(4)=1
  138. 20005 forx=1to4:a(9-x)=a(x):next
  139. 20010 fory=0to9:poke214,9:print:poke646,a(y)
  140. 20015 forx=1to5:printtab(20-len(a$(x))/2)a$(x):next
  141. 20020 ify=4thenforz=1to6000:next
  142. 20021 forz=1to500:next
  143. 20025 next:return
  144. 21000 poke214,j9-1:print:print"      1. play again   2. quit game";
  145. 21010 poke198,0:wait198,1:getz$:ifz$<"1"orz$>"2"then21010
  146. 21020 ifz$="1"thenreturn
  147. 21030 ifz$="2"then40000
  148. 40000 fori=0to21:poke828+i,8+i:next
  149. 40010 ifdv<8ordv>29ordv=8then40030
  150. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  151. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  152. 40040 close2:open2,i,2:close2:ifstthen40060
  153. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  154. 40060 next:print"[147]":poke53272,23:poke186,8:end
  155. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  156. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  157. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  158.